China COVID-19 Analysis

CHINA Cases and Deaths by Date

• Data Source: European Centre for Disease Prevention and Control
• URL: https://www.ecdc.europa.eu/en/publications-data/download-todays-data-geographic-distribution-covid-19-cases-worldwide

## Warning: Transformation introduced infinite values in continuous y-axis

CHINA$Deaths <- na.omit(CHINA$Deaths)
china_deaths <-CHINA  %>%  ggplot() + geom_col(aes(x=Reported,y=Deaths,fill=Deaths)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(x="Date Reported",y="Log Deaths",title="COVID-19: Deaths by Date") +
            scale_y_log10()

ggplotly(china_deaths)           

## Warning: Transformation introduced infinite values in continuous y-axis

CHINA Accumulated Daily Total: Cases and Deaths

• Data Source: John Hopkins CoronavirCHINA Resource Center
• URL: https://coronavirCHINA.jhu.edu/map.html

CHINA Recoveries Accoumliated and Daily

JHU_CHINA %>% 
  ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(title="China COVID-19: Accumulated  Recoveries by Date",x="Date Reported",y="Total Cases")   +
  scale_fill_gradient(labels = scales::comma) + scale_y_log10()

JHU_CHINA  %>%
  ggplot() + geom_col(aes(x=Date,y=na.omit(Recovered),fill=Recovered)) +
  theme(axis.text.x = element_text(angle = 45)) +
      labs(title="CHINAA COVID-19: Accumulated  Recoveries by Date",x="Date Reported",y="Total Cases")  + scale_y_continuous(labels = scales::comma) +
  scale_fill_gradient(labels = scales::comma) + scale_y_log10()

## Scale for 'y' is already present. Adding another scale for 'y', which will
## replace the existing scale.